home *** CD-ROM | disk | FTP | other *** search
/ Apple Color Graphics Sampler / Apple Color Graphics Sampler.iso / English / Demo Applications / Mathematica / Graphics Gallery < prev    next >
Encoding:
Text File  |  1991-04-16  |  5.2 KB  |  61 lines  |  [TEXT/OMEG]
  1. (*^
  2.  
  3. ::[paletteColors = 128; automaticGrouping; 
  4.     fontset = title, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, bold, L1, e8,  24, "Times";
  5.     fontset = subtitle, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, bold, L1, e6,  18, "Times";
  6.     fontset = subsubtitle, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, italic, L1, e6,  14, "Times";
  7.     fontset = section, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, grayBox, M22, bold, L1, a20,  18, "Times";
  8.     fontset = subsection, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, blackBox, M19, bold, L1, a15,  14, "Times";
  9.     fontset = subsubsection, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, whiteBox, M18, bold, L1, a12,  12, "Times";
  10.     fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times";
  11.     fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  10, "Times";
  12.     fontset = input, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L1,  12, "Courier";
  13.     fontset = output, output, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5,  12, "Courier";
  14.     fontset = message, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L1,  12, "Courier";
  15.     fontset = print, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L1,  12, "Courier";
  16.     fontset = info, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L1,  12, "Courier";
  17.     fontset = postscript, PostScript, formatAsPostScript, output, inactive, nowordwrap, preserveAspect, groupLikeGraphics, M7, l36, w282, h287, L1,  12, "Courier";
  18.     fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, B65535, L1,  10, "Geneva";
  19.     fontset = header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times";
  20.     fontset = Left Header, nohscroll, preserveAspect,  12, "Times";
  21.     fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, L1,  12, "Times";
  22.     fontset = Left Footer, preserveAspect, center,  12, "Times";
  23.     fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  10, "Geneva";
  24.     fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times";
  25.     fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Courier";
  26.     fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times";
  27.     fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times";
  28.     fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times";
  29.     fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times";
  30.     fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L1,  12, "Times";]
  31. :[font = title; inactive; preserveAspect; startGroup; ]
  32. Mathematica® Graphics Gallery
  33. ;[s]
  34. 3:0,1;11,2;12,0;30,-1;
  35. 3:1,25,18,Times,1,24,0,0,0;1,25,18,Times,3,24,0,0,0;1,12,8,Times,3,10,0,0,0;
  36. :[font = text; inactive; preserveAspect; ]
  37. One of Mathematica's most striking features is its ability to render mathematical formulas and the results of calculations as three-dimensional pictures.  With Mathematica, you can visualize mathematical concepts in ways that extend far beyond the limits of the classroom blackboard.  Mathematica  generates all graphics in PostScript, but the images you will see in this miniature Graphics Gallery were saved as bitmaps to save disk space.
  38. ;[s]
  39. 7:0,0;7,1;18,0;160,1;171,0;285,1;297,0;441,-1;
  40. 2:4,13,9,Times,0,12,0,0,0;3,13,9,Times,2,12,0,0,0;
  41. :[font = section; inactive; Cclosed; noPageBreakInGroup; keepOnOnePage; preserveAspect; startGroup; ]
  42. Braid
  43. :[font = postscript; PICT; formatAsPICT; output; inactive; noPageBreakInGroup; dontPreserveAspect; pictureLeft = 0; pictureWidth = 523; pictureHeight = 523; endGroup; pictureID = 1615; ]
  44.  
  45. :[font = section; inactive; Cclosed; noPageBreakInGroup; keepOnOnePage; preserveAspect; startGroup; ]
  46. Three-Dimensional Plot of the Mandelbrot Set
  47. :[font = postscript; PICT; formatAsPICT; output; inactive; noPageBreakInGroup; preserveAspect; pictureLeft = 0; pictureWidth = 466; pictureHeight = 466; endGroup; pictureID = 7289; ]
  48.  
  49. :[font = section; inactive; Cclosed; noPageBreakInGroup; keepOnOnePage; preserveAspect; startGroup; ]
  50. Hyperbolic Icosahedron
  51. :[font = postscript; PICT; formatAsPICT; output; inactive; noPageBreakInGroup; thinLines; preserveAspect; pictureLeft = 0; pictureWidth = 345; pictureHeight = 345; endGroup; pictureID = 31880; ]
  52.  
  53. :[font = section; inactive; Cclosed; noPageBreakInGroup; keepOnOnePage; preserveAspect; startGroup; ]
  54. Trefoil Knot
  55. :[font = postscript; PICT; formatAsPICT; output; inactive; noPageBreakInGroup; preserveAspect; pictureLeft = 0; pictureWidth = 423; pictureHeight = 375; endGroup; pictureID = 4514; ]
  56.  
  57. :[font = section; inactive; Cclosed; noPageBreakInGroup; keepOnOnePage; preserveAspect; startGroup; ]
  58. Upright Conical Spiral
  59. :[font = postscript; PICT; formatAsPICT; output; inactive; noPageBreakInGroup; preserveAspect; pictureLeft = 0; pictureWidth = 494; pictureHeight = 494; endGroup; endGroup; pictureID = 21899; ]
  60.  
  61. ^*)